home *** CD-ROM | disk | FTP | other *** search
/ F-A-18E-F Super Hornet - Media Kit (USA) / F-A-18E-F Super Hornet - Media Kit (USA).bin / mac / Assets / SuperHornet / SuperHornet.dcr / Internal_10_addExtention.jpg.ls < prev    next >
Encoding:
Text File  |  2001-09-21  |  492 b   |  19 lines
  1. on mouseUp
  2.   checkExt = "jpg"
  3.   newExt = ".jpg"
  4.   myCast = (the mouseMember).castLibNum
  5.   lastCastMem = the number of castMembers of castLib myCast
  6.   saveItemDelimiter = the itemDelimiter
  7.   the itemDelimiter = "."
  8.   repeat with i = 1 to lastCastMem
  9.     myname = member(i, myCast).name
  10.     X = the last item in myname
  11.     if X <> checkExt then
  12.       X = newExt
  13.       myname = myname & X
  14.       member(i, myCast).name = myname
  15.     end if
  16.   end repeat
  17.   the itemDelimiter = saveItemDelimiter
  18. end
  19.